home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / dinosaur_dig_s2[cbs_1984](easykey).nbz / cbs (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  68 lines
  1. 1 REM 9/7/84 CBS 2NV9
  2. 5 IF PEEK(53247)<>20ORPEEK(53246)<>99THEN10
  3. 6 POKE45,PEEK(174):POKE46,PEEK(175):POKE56,30:CLR:QQ=1:GOTO120
  4. 10 ON FL GOTO 30,40,70,80,85,87,88,90,92,94,100
  5. 15 PRINT CHR$(147);:FOR I=1TO11:PRINT:NEXT:PRINTSPC(10)"LOADING...PLEASE WAIT"
  6. 17 PRINT:PRINT:PRINT"     MAKE SURE SHIFT LOCK KEY IS UP"
  7. 20 FL=1:LOAD"FRONT",8,1
  8. 30 FL=2:LOAD"DECC200.O",8,1
  9. 40 POKE49667,255:SYS49664
  10. 60 FL=3:LOAD"LINE3.9600",8,1
  11. 70 FL=4:LOAD"CGEND6A",8,1
  12. 80 FL=5:LOAD"TABP.O",8,1
  13. 85 FL=6:LOAD"MUS6",8,1
  14. 87 FL=7:LOAD"DE1E00A2.O",8,1
  15. 88 FL=8:LOAD"MAPHIPS",8,1
  16. 90 FL=9:LOAD"LOGTOP2",8,1
  17. 92 FL=10:LOAD"EGGS",8,1
  18. 94 FL=11:LOAD"PANEL",8,1
  19. 95 REM
  20. 100 POKE792,193:POKE793,254:FOR I=895TO907:READA:POKEI,A:NEXT:SYS895
  21. 110 POKE56,30:CLR
  22. 120 POKE53245,1:POKE53247,0:GOSUB5600:IFQQ=0THENGOSUB700
  23. 130 POKE52223,255
  24. 140 PRINTCHR$(147);:POKE49669,116:SYS49664
  25. 160 SYS828V,5:PRINT:GOSUB2000:PRINT"[196]INO";TAB(15);"[211]EE THE DINOSAURS AND"
  26. 170 GOSUB2000::PRINT"[196]ISCOVERY";TAB(15);"COMPARE THE FACTS":PRINT
  27. 180 GOSUB2000:PRINT"[196]INO";TAB(15);"[199]UESS THE MYSTERY"
  28. 190 GOSUB2000:PRINT"[196]IG";TAB(15);"DINOSAUR FROM THE CLUES!":PRINT
  29. 200 GOSUB2000:PRINT"[196]INO";TAB(15);"[195]AN YOU IDENTIFY THE"
  30. 210 GOSUB2000:PRINT"[198]LASH";TAB(15);"DINOSAURS?":PRINT
  31. 220 GOSUB2000:PRINT"[198]ACT OR";TAB(15);"[215]HICH DINOSAURS LIVED AT"
  32. 230 GOSUB2000:PRINT"[198]ABLE";TAB(15);"THE SAME TIME?":PRINT
  33. 240 GOSUB2000:PRINT"[215]HO'S";TAB(15);"[193] GAME OF DINOSAURS AND"
  34. 250 GOSUB2000:PRINT"[194]IGGEST?";TAB(15);"THEIR WEIGHTS":PRINT:PRINT:PRINT
  35. 260 PRINT"[208]RESS A GAME KEY TO PLAY."
  36. 270 GOSUB6800:GOSUB6500:GOTO270
  37. 700 SYS828H,1:SYS828V,23:PRINT"  [208]UT THE [197]ASY[203]EY IN PLACE            "
  38. 800 PRINT"  AND PRESS THE GREEN [211][212][193][210][212] KEY. ";:POKECG+3,5:PRINTSQ$"     ";:POKECG+3,1
  39. 900 GOSUB7200:IFA<>46THENGOSUB6500:GOTO900
  40. 1000 GOSUB8100:RETURN
  41. 2000 POKECG+3,6:PRINTCHR$(127)CHR$(127)"[160]";:POKECG+3,1:RETURN
  42. 5600 VOL=54296:WA=54276:HF=54273:LF=54272:SH=54278:MU=1:SQ$=CHR$(127)
  43. 5700 CG=51200:POKECG+5,64:SYSCG:RETURN
  44. 5800 IFPEEK(53245)=0THENRETURN
  45. 5900 FORZ=54272TO54296:POKEZ,0:NEXT:FORZ=0TO14STEP7:POKESH+Z,240:NEXT:POKEVO,15
  46. 6000 D=PEEK(M):IFD=0THENPOKEVO,0:RETURN
  47. 6100 D=D*6.4:FORZ=0TO14STEP7:M=M+1:L=PEEK(M):M=M+1:H=PEEK(M)
  48. 6200 POKEHF+Z,H:POKELF+Z,L:POKEWA+Z,33:NEXT:M=M+1
  49. 6300 FORZ=1TOD:NEXT:POKEWA,32:POKEWA+7,32:POKEWA+14,32:GOTO6000
  50. 6500 REMRAZZ
  51. 6600 FORA=0TO200:NEXT:FORA=0TO5:GOSUB6700:NEXT:FORA=0TO50:NEXT:FORA=0TO5:GOSUB6700:NEXT:FORA=0TO200:NEXT:RETURN
  52. 6700 PRINTCHR$(4)CHR$(4)CHR$(4);:RETURN
  53. 6800 REM CHECKFOR GAME KEY
  54. 6900 GOSUB7200:Q=A
  55. 7000 IFQ=45ORQ=48ORQ=43ORQ=79ORQ=80THENLOAD"GAME"+STR$(Q),8
  56. 7100 RETURN
  57. 7200 REM GETKEY
  58. 7300 M=49258:GOSUB5800
  59. 7400 POKE198,0
  60. 7500 GETA$:IFA$=""THEN7500
  61. 7600 A=ASC(A$):PRINTCHR$(7);:IFA=57THENPOKE53245,1-PEEK(53245)
  62. 7700 IFA>96ANDA<123THENA=A-32
  63. 7800 RETURN
  64. 7900 PRINTCHR$(7);:RETURN
  65. 8000 M=49258:GOSUB5800:RETURN
  66. 8100 M=49152:GOSUB5800:RETURN
  67. 50000 DATA 120,169,54,141,40,3,169,188,141,41,3,88,96
  68.